home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / WWIV Mods / WWIVMOD.ZIP / LEPPA06.MOD < prev    next >
Encoding:
Text File  |  1992-04-09  |  5.2 KB  |  171 lines
  1. WEB member Leppa #28 @5800
  2. Tuesday, April 7, 1992   7:24 pm
  3. ┌──────────────────────────────────────────────────────────────────────────┐
  4. │                    Mod Name : LEPPA06.MOD                                │
  5. │                    Versions : 4.20+                                      │
  6. │              Files Affected : VARDEC.H, MISCCMD.C, BBS.C                 │
  7. │                  Difficulty : Block Copy & Few Lines                     │
  8. └──────────────────────────────────────────────────────────────────────────┘
  9.  
  10. Description: Have you ever seen those nice mulit-sysop feedback mods??
  11.  Well, I had this problem of my co-sysops leaving a lot.  So I decieded
  12.  to make a mod that would let me just configure who I wanted to be in
  13.  that nice list.  I also liked the feature of one of 'em that let you
  14.  send E-mail to all the sysops in the list, so I added that to this one
  15.  too.  You can now configure the list, so whoever you want will be in
  16.  it.  It doesn't require any external menus, because it makes the list
  17.  of names itself.  I initally wrote this mod for WWIV 4.20 and now I'm
  18.  using it on 4.21.  It should work fine.
  19.  
  20. ---------------------------------------------------------------------------
  21. Disclaimer: I have installed this mod on WWIV 4.20 and have been using it for
  22.  about a month now, with no problems at all. I won't take any responsibility
  23.  if it messes up your computer, however, please feel free to ask me for help,
  24.  I can be reached by calling my board, Heroes BBS at (508) 842-2390 or at
  25.  WWIVLink address 5@15806, or WWIVWeb address, 1@4.  I will be happy to help
  26.  you out.
  27. ---------------------------------------------------------------------------
  28.  
  29. |-------------------|
  30. |      Key:         |
  31. |-------------------|
  32. | -  Already exists |
  33. | =  Change line    |
  34. | +  Add in line    |
  35. | *  Delete Line    |
  36. |-------------------|
  37. STEP 1:
  38. In Vardec.H <I told you this mod was difficult> do the following:
  39.  
  40. -        float           net_req_free;           /* net free factor def 3 */
  41. -        char            res[31];                /* RESERVED */
  42. +        int             fbnums[10];             /* User Nums of Sysops */
  43. +                        numfb;                  /* Number of SysOps */
  44. -} statusrec;
  45.  
  46. Ok, save Vardec.H and load MiscCmd.C
  47.  
  48. STEP 2:
  49. In MiscCmd.C, add in these two voids at the end:
  50.  
  51. /***********************************************************
  52.     Begin Block Read For LEPPA06 Multi-Feedback Mod
  53. ***********************************************************/
  54. void feedback()
  55. {
  56.   char s1[101],c;
  57.   int i;
  58.   userrec u;
  59.  
  60.   npr("\r\n\r\n\r\n3Feedback:\r\n\r\n");
  61.   for (i=1;i<=status.numfb;i++) {
  62.     read_user(status.fbnums[i],&u);
  63.     sprintf(s1,"3%d. %s\r\n",i,nam(&u,status.fbnums[i]));
  64.     npr(s1);
  65.   }
  66.   npr("3A. 1All of the above\r\n");
  67.   npr("3Q. 1Quit Feedback\r\n");
  68.   npr("\r\n3Your choice: ");
  69.   c=onek("123456789AQ");
  70.   if ((c <= '9') && (c > '0')) {
  71.     i=c-'0';
  72.     strcpy(irt,"Feedback");
  73.     email(status.fbnums[i],0,0,0);
  74.   } else {
  75.     switch (c) {
  76.       case 'A':
  77.         status.fbnums[0]=status.fbnums[status.numfb];
  78.         multimail(status.fbnums,status.numfb);
  79.         return;
  80.       case 'Q':
  81.         npr("\r\n");
  82.         return;
  83.     }
  84.   }
  85. }
  86.  
  87. void cfgfeed()
  88. {
  89.   int i;
  90.   char c,s[40];
  91.  
  92.   while ((c!='Q') && (!hangup)) {
  93.     npr("\r\n\r\nConfigure Feedback: \r\n");
  94.     npr("3N 1- 3Number Feedback\r\n");
  95.     npr("311..39 1- 3Configure Usernum\r\n");
  96.     npr("Enter your choice: ");
  97.     c=onek("N123456789Q");
  98.     if (c=='Q') {
  99.       return;
  100.     } else if (c=='N') {
  101.       npr("3Enter Number feedbacks: ");
  102.       c=onek("123456789");
  103.       status.numfb=c - '0';
  104.     } else {
  105.       i=c - '0';
  106.       npr("3Enter user for feedback number %d: ",i);
  107.       input(s,40);
  108.       status.fbnums[i]=finduser(s);
  109.     }
  110.   }
  111. }
  112.  
  113. Save MiscCmd.C and Load Up BBS.C
  114.  
  115. STEP 3:
  116. In BBS.C Change the following lines:
  117. -        send_email();
  118. -        break;
  119. -      case 'F':
  120. *        strcpy(irt,"Feedback.");
  121. *        irt_name[0]=0;
  122. *        email(1,0,0,0);
  123. +        feedback();
  124. -        break;
  125. -      case 'G':
  126. -        helpl=28;
  127.  
  128. STEP 4:
  129. Add the following lines into BBS.C:
  130. -    if (strcmp(s,"UEDIT")==0) {
  131. -      sysoplog("@ Ran Uedit");
  132. -      uedit(usernum,0);
  133. -    }
  134. +    if (strcmp(s,"FEEDBACK")==0) {
  135. +      cfgfeed();
  136. +    }
  137. -    if (strcmp(s,"STATUS")==0) {
  138. -      prstatus();
  139. -    }
  140.  
  141. STEP 5:
  142. Make FCNS, or Add in the following lines in FCNS.H
  143.  
  144. -void vote_question(int f, int i, int ii);
  145. -void vote();
  146. +void feedback();
  147. +void cfgfeed();
  148. -
  149. -
  150. -/* File: multmail.c */
  151.  
  152. STEP 6:
  153. Compile the ENTIRE BBS (Because we've changed VARDEC.H) and grab a cup
  154. of coffee!
  155.  
  156. STEP 7:
  157. If you use this mod, send me E-Mail at one of the following addresses, so I
  158. know that you're using my mod... <g>
  159.         WWIVNet:      LEPPA@5819
  160.         WWIVLink:     5@15806
  161.         WWIVWeb:      1@4
  162. Thanks a lot... and look for LEPPA07 to come out soon <Titlewars!>
  163.  
  164.                      7---1===3Leppa1===7---
  165.  
  166. 9
  167. 95The 2BEARS CAVE BBS, 1The 3BEAST1 from the 3EAST6!
  168. 82WWIVweb 5@11 WOMRable 2WWIVnet 55800
  169. 72Let the BEAST in you LOOSE!!6!2!!
  170. 60
  171.